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1 . BACKGROUND 


MLTCRP Is an analysis program In the Accuracy Assessment Software System which 
Is used to analyze DTERM files and AI dot labels in terms of ground truth 
information for an individual segment. (For Information on this program see 
M As-Bui 1 t Design Specification for POP 11/45 Accuracy Assessment System Using 
Disk Data File," Job Order 71-695, TIRF 77-0048, LEC-11881.) Some of the 
information produced by this program is of interest for areas greater than a 
single segment. In order to facilitate the aggregation of this information. 

Ml TCRP was modified to produce a disk output file containing the necessary 
information for each segment. 


2. GENERAL DESCRIPTION 


The modifications to MLTCRP which produce the disk output file do not affect 
the data processing performed by the program. There are some operational 
restrictions on the program due to the modifications. The program can accept 
up to three DTERM files for a segment In a run. The order In which the 
files are processed is not critical for the original program; however, the 
modified version requires that certain files be In a certain order. For a 
valid output file to be produced, the following restrictions must be observed: 

a. When type "1" dots are used, there must be two DTERM files for each run: 
(1) unconditional cluster file (DT2), and ( 2 ) machine classification 
file (DTI), The DTERM files must be entered in this order. If the third 
file (conditional cluster f11e-DT3) Is used. It must precede the other 
two files. 

b. When other than type "1" dots are used, only the machine classification 
file will produce a disk output file. The output file will not contain 
records 4 and 5, 

lhe output file produced by the program Is named MCRPOUT.OUT. It Is created 
In the UIC where the task Is located. The output file Is an unformatted, 
sequential access file. The contents of this file are described In appendix A. 
Records 2, 3, and 6 are two-dimensional arrays. The second subscripts In 
records 2 and 3 are running Indices for the transformations. In record 6, 
the second subscript is a running Index for analyst- labeled dots. In 
records 4 and 5, If there are no subpixels with a crop code in a class, the 
crop code Is not written to the disk file. 

To access the output file, the following statement should be used: 

OPEN(UNIT'LUN,NAMr =FLNM , TYPE ‘OLD 1 .ACCESS* ' SEQUENTIAL ' , 

* F0RM= 'UNFORMATTED' .CARRIAGE CONTROL* ‘ NONE * ,ERR*N) 

LUN Is the logical unit number associated with the file, FI NM is an array 
containing the file name for the output file with an explicit version number. 
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and N Is a statement number to go to if there is an error in opening the file. 
The arrays to accept the data should be dimensioned as follows: 

DIMENSION IREC1 (20) . IREC2(3,100) , IREC3(2,10) , 1REC4(3000) , 

* IREC5(3000),!REC6(3.105) 

To load the data into the arrays, the following statements can be used: 

READ(LUN) ( I REC1 (I ) .1*1 ,20) 

READ(LUN) ( ( IREC2( 1 ,J) , 1*1 .3) ,J*l ,1REC1 (13) ) 

READ(IUN) ( ( 1REC3( I , J) , l* 1 ,2) ,J- 1 .1REC1 ( 14) ) 

IF(IREC1(9).GT.1)G0 TO 10 
REAP(LUN) ( IREC4( I ) , I 1 , 1REC1 ( 16) ) 

READ(LUN) ( IRECS( I ) ,1*1 , I REC1 (17)) 

10 READ(IUN) ( ( 1REC6( 1 ,J) , 1 1 . 3) . J-l . 1REC1 (10) ) 

The conditional jump statement is used because for type “2" dots, records 4 
and 5 are not created. In record 1, all of the words except word 2 are 
integers. Word 2 is an alphanumeric variable (A2). Records 2, 4, 5, and 6 
are all integers. In record 3, the first word of each pair is alphanumeric 
(A1 format). 
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3. DETAILS OF THE MODIFICATIONS 


Appendix B is a compiled listing of the routines used in the modified version 
of MLTCRP. The modifications made to the original program are marked off in 
blocks on the listings. MLTCRP is overlaid to keep it within the 32K word 
limit imposed by the PDP 11/45 task builder. The overlay structure is 
described in figure 1. MPI is the only common block that was changed by the 
modifications. It was expanded to include the variable DTN, which is the num- 
ber of the DTERM file. This change in MPI was the only change made in sub- 
routines ZOT, IERR, MTXPT, and PROB. The subroutines AAMCRP, AAMRDD, AAMANL, 
and PROBPT were modified more extensively. A new subroutine, DISKLD, was 
developed for the program. The modifications to these subroutines are 
described below. 

3.1 AAMCRP MODIFICATIONS 

AAMCRP was modified to open the disk output file before the data are processed, 
and to close the output file when all of the processing is complete. 

3.2 AAMRDD MODIFICATIONS 

Records 1, 2, and 3 are dimensioned in AAMRDD. The DTERM file number, DTN, 
is determined from the file name. On the first pass through this subroutine, 
words 1-10, 13, and 14 of record 1, and all of records 2 and 3 are written to 
the disk output file. 

3.3 AAMANL MODIFICATIONS 

All six of the output arrays are dimensioned in AAMANL. For the DTERM con- 
ditional file (DT3), nothing is done to the output file in AAMANL. For the 
DTERM unconditional cluster file (DT2), the date in the disk file are read 
into IREC1 , IREC2, and IREC3. IREC4 is loaded during the first call to PROBPT. 
IREC1, IREC2, IREC3, and IREC4 are then written to the output file. When 
AAMANL is processing the DTERM machine classification file (DTI), the data 
from t.he disk file are read into IREC1, IREC2, IREC3, and IREC4. IREC5 is 
loaded during the first call to PROBPT. IREC6 is then loaded and all of the 
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Subroutine was extensively modified 
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Conmon statement changed In subroutine 
v *New subroutine 




Figure 1. Overlay structure for modified version of MITCRP 
(number In parentheses Is size for each segment). 
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records are written to the disk file. At the end of AAMANl , the contents of 
the disk file are written on the line printer. 

3 . 4 PROBPT MODIFICATIONS 

The calling arguments for PROBPT were added to pass an array for loading 
records 4 and 5, and a counter for the length of the record to the subroutine, 

DISKID. PROBPT calls DISKLD for DTERM files DTI and DT2 when PROBPT is proc- 

essing the number arrays. 

3 . 5 SUBROUTINE PI SKID 

DISKLD is a subroutine which takes the data in RA(I,J) and compresses the data 
by eliminating zeros. The compressed data are loaded into an output array. 

The calling arguments for DISKLD are: 

a. Outputs: IREC array into which the compressed data are loaded 

N number of words used in array 

b. Input: DTN DTERM file number 

The subroutine requires common blocks MTX and CK. 

Figure Z is a flow chart for this subroutine. The subroutine requires 
184 words of storage exclusive of common blocks and the output array. 






ORIGINAL PAGE IS 
OF POOR QUALITY 


Figure 2.- Flow chart for subroutine DISKLD. 
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APPENDIX A 

DISK OUTPUT FILE FORMAT FOR MLTCRP 


APPENDIX A 

DISK OUTPUT FILE FORMAT FOR MLTCRP 

Record 1 - General Information 

WD 1 - Segment number 

WD 2 - State 

WD 3 - Processing date 

WD 4 - Acquisition date (1) 

WD 5 - Acquisition date (2) 

WD 6 - Acquisition date (3) 

WD 7 - Acquisition date (4) 

WD 8 - Date for ground truth tape (GTT) 

WD 9 - Dot type 

WD 10 - Number of labeled dots 

WD 11 - Number of cluster codes on DTERM tape 

WD 12 - Number of crop codes on ground truth tape 

WD 13 - Number of crop code transformations 

WD 14 - Number of dot label transformations 

WD 15 — Number of machine codes on ground truth tape 

WD 16 - Number of words in record 4 

WD 17 - Number of words in record 5 

WD 18 - Not used 

WD 19 - Not used 

WD 20 - Not used 
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Record 2 

WD (1 ,N) 

WD (2,N) 

WD (3.N) 

Record 3 

WD (1 ,N) 

WD (2,N) 

Record 4 

WD 1 - First cluster number with sign changed 

WD 2 — 1000X (AI label for dot used to label first cluster) ♦ dot number 
[to be added later] 

WD 3 - 1000X (integer truncation of number of subpixels in first cluster with 
crop code, divided by 32 768) + crop code 
WD 4 - Remainder of subpixels in first cluster with crop code 

[Repeat words 3 and 4 for all crop codes in first cluster, then repeat for 
each cluster.] 

Record 5 - Ground Truth for Machine Classes 

WD 1 - First machine class number with sign changed 

WD 2 - 1000X (integer truncation of number of subpixels in first machine class 
with crop code, divided by 32 768) + crop code 
WD 3 — Remainder of subpixels in first machine class with crop code 

[Repeat words 2 and 3 for all crop codes in first machine class, then repeat 
for each machine class.] 


- Crop Code Transformations 

- Beginning crop code 

- Ending crop code 

- Transformation 

- Dot Label Transformations 

- Alphanumeric label designation 

- Numeric code 

-Ground Truth for Unconditional Clusters 
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Record 6 - Ground Truth for Each Labeled Dot 

WD ( 1 ,N) - 1000X (AI label for dot) ♦ dot number 

WD (2,N) - Machine class for dot 

WD (3,N) - Crop code for dot on ground truth tape 
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APPENDIX B 

COMPILED LISTING FOR MODIFIED VERSION OF MLTCRP 
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CALL PRaOPM JREC4.* CCT) 

IF ( 07* . N.S • 1 ) G* 70 7 
°E AD ( 7 ) (I4Eeim.Tai.20) 

RE ABC 7) trrWFCStt. j*l» iRFClffTT) 

RE ADC 7 > ( ( !»CC3( » . I) . T«l.2> , J*l# 1 HP Cl (14) ) 

IF ( ! agCl * 9 ) , A<E • 1 ) 00 T 7 a 
9EA0(7) (!9EC4(l).t«l,!9PCl(ie)) 

RE AD f 7 ) (!4EeSII)*Tai» IREC1 ( 17 ) ) 
a ®E AD ( 7 ) (C!RBC6(T, l ) . I *1 . 3 ) • J"1 * 1REC1 ( 10 ) ) 

RE 4TAT) C 7 ) 

®RIM7| ‘iPRJ. 1 ) (JPE^lf D.Tal.20) 
i F0 Rpat(?hi. i4.ix.A9.iai6) 

PRIS7(‘4PRT,2) 

7 FFPMATdWD) 

PRJN7C oPT. 3) C (TRBC?( ! . J)» I *1 # 3 > . J*1 . I R6C1 ( 13 ) ) 

t F0 Omit(3I6) 

PR l NT c * eRT , 2 ) 

PR I NT C NpRT ( 4 ) ( (!RBC3( I . J). I"l»2), j»l, !RFCl(i4) ) 
4 r0R»»AT(lW ,41.14) 

PRINTf' pRT.5) 

•; raPHATtiHu 

IFtTREC! t9) , Vf.l) m .2 T7 9 
prIn7(‘.oR7,6) (!9Ep4C!),!«1»!REC1(i6)) 

6 F0PMAT ( 70 I 6 ) 

PPJST(^PR7,5) 

prtkTC P4T.6) U4EC5U).Tp1,!REC1(17)) 

PR I N7 r pPT , 5 ) 

0 PR t \T ( ’ pPT ,3) f ( TRFCf ( T. J) * I*l» J«l. TREClClOn 
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«t2E 
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1 
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0056*6 
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3 
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60**if 
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0„,r.CfV,LCL 

4 

iVAHt 

332:24 
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»..r . cza.lsl 

* 

f TF-PS 
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1 
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6 

°D 

60234* 
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7 
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:234?r 
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m 

r* 

01BCP4 

20*0 
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9 

•*pf 
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7 
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ENTRY Pej\TS 





NAME t vpe AD6RES5 

AA^ANL IpBOBA^C 

SAPP 

»VPE ACTRESS 

NAME 

type ad*RESS 


7A»! A0LES 



name 

type 

ADLESS 

NAME 

▼TME 

Air?»*SS 

NAM= 

T T*E 

AU**tSS 

DTN 

!•? 

9.006014 

I 

?•? 

4.631776 

It 

!•? 

4.632020 

INC 

Ip? 

8*616030 

J 

»•? 

4.63200k 

JJ 

Ip? 

4.n320?2 

N A 1 5 

!•? 

9.30001? 

NCCT 

TP? 

4.632012 

NPRT 

*•? 

9.400006 

tino 

I«? 

9.60*01* 

Tv 

» P? 

4-C3?Ci* 

X 


4.032014 
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type 
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?I?E 

ri M ENiie- 

s 



”1 
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6.000006 

000642 
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D7 

!•? 
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60*642 

2*9 
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Tp? 

4*00664? 

606642 
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?C 
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I ®EC3 
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6135*3 
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IOEC6 
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JO 
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1* 
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2» 
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3* 
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6* 
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7 
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6 

1.004544 
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TTMf 

AI TMtSN 
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TP? 
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IND 

»p? 

1.610062 

J M A X 

TP? 

4.-320*0 

M|N* 

!•? 

9. *06060 

R*mcc* 

0.4 

4»*3?0*6 

B* 

Op4 

9.600002 


LABEL 

AOCBESS 

label 

APDPESS 

4* 

3*0*0434 

5* 

3'.0*0444 

9 

1*0:5*34 
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3.060226 
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3*66*il? 

7T* • 
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776* i*3l08H 715 i*c;«36 
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odo; 
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0006 
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0023 
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77U C*LX' 

6047 CAlu PP’BC 

0048 *!-^ * 4 
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cc 0254 957 ra8^AT<lMl,10X.'7«f “A*®!* PCC/AT)*) 

oj 03®5 CALL *TXPT 

0056 ®E*U®v 

0097 EN9 


BASE 9 



96ll c ll5 2 -.apB.7p, 


RAGE 13 



r^BTBAM : V-Pi uS V 0 2 . 5 « 

aD-avl.FTs /t*|Ri i4C*S/pR 

BR75RA9 SECTfiNS 




number 

Namp 

StlE 



ATTRIBUTES 



i 

«C *D?1 
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3 
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UftMfrte 

_ 

. . 

... 



. ... 

VAPJ A3LES 








Name 

TYPE 
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JD 

!•? 

7.104090 

904009 

1*374 

(256,4) 
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label 

ire 

best 

LABEL 

ADDRESS 

WBPL 

actress 
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